function cobaM2(filepath, k)
A = load (filepath);
[U,S,V] = svds(A,k);
N = V*S;
save('VDS.txt','N','-ASCII');
quit force
